Hi lo game for do loop nest test  (B+=MGA) 2017-08-06
v prompt$ ls
{(O quits) Guess my number from 1 to 100.}
v sp1$ space 1
do
    v secret# rnd
    v secret# * secret# 100
    v secret# int secret#
    v secret# + secret# 1
    v count# @ 0
    do
        p
        p prompt$
        v guess# input
        v testGuess# #= guess# 0
        if testGuess#
            end
        fi
        v count# + count# 1
        v testGuess# #> guess# secret#
        if testGuess#
            p High!
        else
            v testGuess# #< guess# secret#
            if testGuess#
                    p Low!
            else
                    p; Guessed
                    p; sp1$ 
                    p; in
                    p; sp1$
                    p; count#
                    p; sp1$
                    p guesses!
                    p
                    exit
                fi
            fi
    loop
loop

